home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / business / cntws11a.zip / DRSTR.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1997-01-03  |  15KB  |  379 lines
  1. DRSTRANS
  2. * Date...............: 12-21-96
  3. * Versions...........: dBASE 5.0, Report
  4. * Notes:
  5. * ------
  6. * Prior to running this procedure with the DO command
  7. * it is necessary use LOCATE because the CONTINUE
  8. * statement is in the main loop.
  9. *-- Parameters
  10. PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, gc_extra
  11. ** The first three parameters are of type Logical.
  12. ** The fourth parameter is a string.  The fifth is extra.
  13. PRIVATE _peject, _wrap,
  14. SUB_CODE
  15. FIRST_REF
  16. ACTCD_REF
  17. SUBCD_DATE
  18. ENDIF
  19. *-- turn word wrap mode off
  20. _wrap=.F.
  21. IF _plength < 1 + 1 + 2
  22.    SET DEVICE TO SCREEN
  23.    DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE
  24.    ACTIVATE WINDOW gw_report
  25.    @ 0,1 SAY "Increase the page length for this report."
  26.    @ 2,1 SAY "Press any key ..."
  27.    x=INKEY(0)
  28.    DEACTIVATE WINDOW gw_report
  29.    RELEASE WINDOW gw_report
  30.    RETURN
  31. ENDIF
  32. _plineno=0          && set lines to zero
  33. *-- NOEJECT parameter
  34. IF gl_noeject
  35.    IF _peject="BEFORE"
  36.       _peject="NONE"
  37.    ENDIF
  38.    IF _peject="BOTH"
  39.       _peject="AFTER"
  40.    ENDIF
  41. ENDIF
  42. *-- Set-up environment
  43. ON ESCAPE DO Prnabort
  44. IF SET("TALK")="ON"
  45.    SET TALK OFF
  46.    gc_talk="ON"
  47.    gc_talk="OFF"
  48. ENDIF
  49. gc_space=SET("SPACE")
  50. SET SPACE OFF
  51. gc_time=TIME()      && system time for predefined field
  52. gd_date=DATE()      && system date  "    "    "     "
  53. gl_fandl=.F.        && first and last page flag
  54. gl_prntflg=.T.      && Continue printing flag
  55. gl_widow=.T.        && flag for checking widow bands
  56. gn_length=LEN(gc_heading)  && store length of the HEADING
  57. gn_level=2          && current band being processed
  58. gn_page=_pageno     && grab current page number
  59. gn_pspace=_pspacing && get current print spacing
  60. *-- Initialize calculated variables.
  61. debit=0
  62. credit=0
  63. *-- Set up procedure for page break
  64. gn_atline=_plength - 1
  65. ON PAGE AT LINE gn_atline EJECT PA
  66. SUB_CODE
  67. Cyobe     
  68. Dyobe     
  69. SUB_CODE
  70. FIRST_REF
  71. 001       
  72. CN004     
  73. FIRST_REF
  74. BYobe       
  75. BYobe       
  76. Cyobe       
  77. Cyobe       
  78. Cyobe       
  79. Cyobe       
  80. Cyobe       
  81. Cyobe       
  82. Cyobe       
  83. DTanya      
  84. DTanya      "
  85. DTanya      #
  86. DTanya      
  87. Dyobe       
  88. Dyobe     
  89. Dyobe     
  90. Dyobe     
  91. Dyobe     
  92. Dyobe     
  93. Dyobe     
  94. Dyobe     
  95. Dyobe     
  96. Dyobe     
  97. Dyobe     
  98. Dyobe     
  99. Dyobe     
  100. Dyobe     
  101. Dyobe     
  102. Dyobe     
  103. Kmahara   
  104. Kmahara   
  105. Kmahara   
  106. Kyobe     
  107. Kyobe     
  108. Kyobe     
  109. Kyobe     
  110. PTaisi    
  111. PTaisi    
  112. PTaisi    
  113. PTaisi    
  114. PTaisi    
  115. Tyobe     
  116. Tyobe     
  117. Tyobe     
  118. Tyobe     
  119. Tyobe     
  120. Tyobe     
  121. Tyobe     
  122. Tyobe     
  123. Tyobe     
  124. Tyobe     
  125. Tyobe     
  126. Tyobe     
  127. Tyobe     
  128. Tyobe     
  129. Tyobe     
  130. 001         
  131. 002         
  132. 002         
  133. 003         
  134. 004         
  135. 004         
  136. 005         +
  137. 005         
  138. 006         
  139. 006         
  140. 010         
  141. 010         
  142. 010             
  143. 011         
  144. 012         "
  145. 121212      $
  146. 12123456    !
  147. 1213        (
  148. 1234        '
  149. 123456      2
  150. 123456      &
  151. 123456654   ,
  152. 123456654   %
  153. 123456789   -
  154. 123456789   
  155. 1245        
  156. 2000        0
  157. 2500        3
  158. 2500        4
  159. 2500        5
  160. 2500        
  161. 3000        
  162. 3000        .
  163. 3000        6
  164. 3255        
  165. 4125        /
  166. 4125        #
  167. 4555        
  168. 5000        7
  169. 5222        )
  170. 5444        
  171. 6544        
  172. 6544        
  173. 6544        
  174. 6545        *
  175. 6565        1
  176. 8455         
  177. 8526        8
  178. 8544        
  179. 8585        
  180. 8585        
  181. CN004       
  182. CN004     
  183. CN102     
  184. CN102     
  185. CN102     
  186. trim(sub_code)+trim(first_ref)
  187. 001       
  188. Tyobe005            
  189. FIRST_REF
  190. BYobe1245           
  191. BYobe6544           
  192. Cyobe001            
  193. Cyobe003            
  194. Cyobe004            
  195. Cyobe004            
  196. Cyobe012            
  197. CyobeCN004          
  198. CyobeCN004          "
  199. DTanya121212        #
  200. DTanya4555          
  201. DTanya6544          
  202. DTanya6544          
  203. Dyobe002            
  204. Dyobe002            
  205. Dyobe006            
  206. Dyobe006            
  207. Dyobe010            
  208. Dyobe010            
  209. Dyobe010            2
  210. Dyobe123456         0
  211. Dyobe2500           3
  212. Dyobe2500           4
  213. Dyobe2500           5
  214. Dyobe2500           1
  215. Dyobe8455           
  216. DyobeCN102          
  217. DyobeCN102          
  218. trim(sub_code)+dtos(date)+first_ref
  219. Cyobe19960505012            
  220. Tyobe19961011005            
  221. BYobe199612281245           
  222. BYobe199612286544           
  223. Cyobe19960505012            
  224. Cyobe19961112004            
  225. Cyobe19961112004            
  226. Cyobe19961218001            
  227. Cyobe19961221003            
  228. Cyobe19961221CN004          
  229. Cyobe19961221CN004          "
  230. DTanya19961228121212        #
  231. DTanya199612284555          
  232. DTanya199612286544          
  233. DTanya199701016544          
  234. Dyobe19960606CN102          
  235. Dyobe19960606CN102          
  236. Dyobe19960606CN102          
  237. Dyobe19960707010            
  238. Dyobe19960707010            
  239. Dyobe19960707010            
  240. Dyobe19961111006            
  241. Dyobe19961111006            
  242. Dyobe19961218002            
  243. Dyobe19961218002            2
  244. Dyobe19961228123456         1
  245. Dyobe199612288455           0
  246. Dyobe199701012500           3
  247. Dyobe199701012500           4
  248. Dyobe199701012500           5
  249. Dyobe199701012500           (
  250. Kmahara199612281234         '
  251. Kmahara19961228123456       
  252. Kmahara199612282000             
  253. Kyobe19960606011            $
  254. Kyobe1996122812123456       
  255. Kyobe199701018585           
  256. Kyobe199701018585           !
  257. PTaisi199612281213          
  258. Dyobe19960707010            
  259. PTaisi199612281213          
  260. PTaisi199612286565           
  261. PTaisi199612288526          
  262. Tyobe19961011005            +
  263. Tyobe19961011005            &
  264. Tyobe19961228123456654      ,
  265. Tyobe19961228123456654      %
  266. Tyobe19961228123456789      -
  267. Tyobe19961228123456789      
  268. Tyobe199612284125           /
  269. Tyobe199612284125           
  270. Tyobe199612285000           
  271. Tyobe199701013000           
  272. Tyobe199701013000           .
  273. Tyobe199701013000           
  274. PTaisi199612285444          
  275. PTaisi199612286545          *
  276. PTaisi199612286565           
  277. PTaisi199612288526          
  278. Tyobe19961011005            +
  279. Tyobe19961011005            &
  280. Tyobe19961228123456654      ,
  281. Tyobe19961228123456654      %
  282. Tyobe19961228123456789      -
  283. Tyobe19961228123456789      
  284. Tyobe199612284125           /
  285. Tyobe199612284125           
  286. Tyobe199612285000           
  287. Tyobe199701013000           
  288. Tyobe199701013000           .
  289. Tyobe199701013000   
  290. DyobeCN102          (
  291. Kmahara1234         '
  292. Kmahara123456       
  293. Kmahara2000             
  294. Kyobe011            $
  295. Kyobe12123456       
  296. Kyobe8585           
  297. Kyobe8585           !
  298. PTaisi1213          )
  299. PTaisi5444          
  300. PTaisi6545          *
  301. PTaisi6565           
  302. PTaisi8526          
  303. Tyobe005            +
  304. Tyobe005            &
  305. Tyobe123456654      ,
  306. Tyobe123456654      %
  307. Tyobe123456789      -
  308. Tyobe123456789      
  309. Tyobe3000           
  310. Tyobe3000           .
  311. Tyobe3000           6
  312. Tyobe3255           
  313. Tyobe4125           /
  314. Tyobe4125           
  315. Tyobe5000           7
  316. Tyobe5222           8
  317. Tyobe8544           
  318. DyobeCN102          
  319. Kmahara1234         '
  320. Kmahara123456       
  321. Kmahara2000             
  322. Kyobe011            $
  323. Kyobe12123456       
  324. Kyobe8585           
  325. Kyobe8585           !
  326. PTaisi1213          )
  327. PTaisi5444          
  328. PTaisi6545          *
  329. PTaisi6565           
  330. PTaisi8526          
  331. Tyobe005            +
  332. Tyobe005            &
  333. Tyobe123456654      %
  334. Tyobe123456789      
  335. Tyobe3000           
  336. Tyobe3000           
  337. Tyobe4125           
  338. Tyobe5000           
  339. DyobeCN102          
  340. DyobeCN102          (
  341. Kmahara1234         '
  342. Kmahara123456       
  343. Kmahara2000             
  344. Kyobe011            $
  345. Kyobe12123456       
  346. Kyobe8585           
  347. Kyobe8585           !
  348. PTaisi1213          )
  349. PTaisi5444          
  350. PTaisi6545          *
  351. PTaisi6565           
  352. PTaisi8526          
  353. Tyobe005            +
  354. Tyobe005            &
  355. Tyobe123456654      %
  356. Tyobe123456789      
  357. Tyobe3000           
  358. Tyobe3000           
  359. Tyobe4125           
  360. PTaisi199612285444          
  361. PTaisi199612286545          *
  362. PTaisi199612286565           
  363. PTaisi199612288526          
  364. Tyobe19961011005            +
  365. Tyobe19961011005            &
  366. Tyobe19961228123456654      ,
  367. Tyobe19961228123456654      %
  368. Tyobe19961228123456789      -
  369. Tyobe19961228123456789      
  370. Tyobe199612284125           /
  371. Tyobe199612284125           
  372. Tyobe199612285000           
  373. Tyobe199701013000           
  374. Tyobe199701013000           .
  375. Tyobe199701013000           6
  376. Tyobe199701023255           7
  377. Tyobe199701035222           8
  378. Tyobe199701038544           
  379.